home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / buttons / espin / spin1.frm < prev    next >
Text File  |  1995-07-19  |  2KB  |  79 lines
  1. VERSION 2.00
  2. Begin Form FrmESpin 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   2070
  5.    ClientLeft      =   2265
  6.    ClientTop       =   720
  7.    ClientWidth     =   1530
  8.    Height          =   2505
  9.    Left            =   2190
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   2070
  12.    ScaleWidth      =   1530
  13.    Top             =   360
  14.    Width           =   1680
  15.    Begin Timer Timer1 
  16.       Enabled         =   0   'False
  17.       Interval        =   50
  18.       Left            =   240
  19.       Top             =   120
  20.    End
  21.    Begin Image Image2 
  22.       BorderStyle     =   1  'Fixed Single
  23.       Height          =   300
  24.       Index           =   3
  25.       Left            =   960
  26.       Picture         =   SPIN1.FRX:0000
  27.       Top             =   1200
  28.       Visible         =   0   'False
  29.       Width           =   195
  30.    End
  31.    Begin Image Image2 
  32.       BorderStyle     =   1  'Fixed Single
  33.       Height          =   300
  34.       Index           =   2
  35.       Left            =   720
  36.       Picture         =   SPIN1.FRX:010A
  37.       Top             =   1200
  38.       Visible         =   0   'False
  39.       Width           =   195
  40.    End
  41.    Begin Image Image2 
  42.       BorderStyle     =   1  'Fixed Single
  43.       Height          =   300
  44.       Index           =   1
  45.       Left            =   480
  46.       Picture         =   SPIN1.FRX:0214
  47.       Top             =   1200
  48.       Visible         =   0   'False
  49.       Width           =   195
  50.    End
  51.    Begin Image Image2 
  52.       BorderStyle     =   1  'Fixed Single
  53.       Height          =   300
  54.       Index           =   0
  55.       Left            =   240
  56.       Picture         =   SPIN1.FRX:031E
  57.       Top             =   1200
  58.       Visible         =   0   'False
  59.       Width           =   195
  60.    End
  61. End
  62. Option Explicit
  63.  
  64. Sub Form_Load ()
  65. ' This form needs to be included in your project in order
  66. ' to use the enhanced spin button.
  67. ' It holds the timer and the bitmaps used for making the
  68. ' button look pressed.
  69. '
  70. ' initialize
  71.   TwipsY = Screen.TwipsPerPixelY
  72.   Timer1.Interval = INITDELAY
  73. End Sub
  74.  
  75. Sub Timer1_Timer ()
  76.   SpinIt
  77. End Sub
  78.  
  79.